• R’da animasyonlu grafikler oluşturmak için ggplot2 paketinin bir uzantısıdır.
• Orijinali David Robinson tarafından yazılmıştır.
• Thomas Lin Pedersen tarafından 2018 ve 2019’da güncellenmiştir.

Pedersen gganimate paketini şöyle tanımlıyor:

Animasyonun nasıl tanımlanacağına dair teorik bir omurga ve aynı zamanda belirlenmiş teorik omurgaların bir uygulamasıdır.

Grafik hareketlerini aşağıdaki özelliklerle kontrol etme

• Transitions ~ Geçişler
• Views ~ Görüntülemeler
• Shadows ~ Gölgeler
• Entrances/Exits ~ Girişler/Çıkışlar
• Easing ~ Hafifletme

Transitions ~ Geçişler

• Verilerin nasıl yayılması gerektiğini ve zaman içinde kendisiyle nasıl ilişkili olduğunu tanımlar.

Statik arsa

ggplot(gapminder, 
       aes(x = gdpPercap, y=lifeExp, size = pop, colour = country) ) +
  geom_point(show.legend = FALSE, alpha = 0.7) +
  scale_x_log10() +
  scale_color_viridis_d() +
  scale_size(range = c(0.1, 5)) +
  labs(x = "GDP per capita", y = "Life expectancy")

transition_time()

p + transition_time(year) +
  labs(title = "Year: {frame_time}")

p + facet_wrap(~continent) +
  transition_time(year) +
  labs(title = "Year: {frame_time}")

transition_states()

ggplot(iris, aes(x = Petal.Width, y = Petal.Length, colour = Species)) + 
  geom_point(aes(group = seq_along(Species))) + 
  transition_states(Species,
                    transition_length = 2,
                    state_length = 1)

transition_reveal()

ggplot(
  airquality,
  aes(Day, Temp, group = Month, color = factor(Month))) +
  geom_line() +
  scale_color_viridis_d() +
  labs(x = "Day of Month", y = "Temperature") +
  theme(legend.position = "top")+ 
  geom_point(aes(group = seq_along(Day))) +
  transition_reveal(Day) +
  theme_minimal()

Views ~ Görüntülemeler

• Animasyon boyunca konumsal ölçeklerin nasıl değişmesi gerektiğini tanımlar.

view_follow()

p + transition_time(year) +
  labs(title = "Year: {frame_time}") +
  view_follow(fixed_y = TRUE)

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point() +
  labs(title = "{closest_state}") +
  transition_states(Species, transition_length = 4, state_length = 1) +
  view_follow()

Shadows ~ Gölgeler

• Zaman içindeki diğer noktalardan gelen verilerin verilen zaman noktasında nasıl sunulması gerektiğini tanımlar.

shadow_wake()

p + transition_time(year) +
  labs(title = "Year: {frame_time}") +
  shadow_wake(wake_length = 0.1, alpha = FALSE)

ggplot(iris, aes(Petal.Length, Sepal.Length)) +
  geom_point(size = 2) +
  labs(title = "{closest_state}") +
  transition_states(Species, transition_length = 4, state_length = 1) +
  shadow_wake(wake_length = 0.1)

shadow_mark()

p + transition_time(year) +
  labs(title = "Year: {frame_time}") +
  shadow_mark(alpha = 0.3, size = 0.9)

p1 + transition_states(Month, wrap = FALSE) +
  shadow_mark()

Entrances and exits ~ Girişler/Çıkışlar

• Animasyon sırasında yeni verilerin nasıl görüneceğini ve ne kadar eski verilerin kaybolacağını tanımlar.

p1 + transition_states(Month, wrap = FALSE) +
  shadow_mark() +
  enter_grow() +
  enter_fade()

p3 + 
  enter_fade() + enter_drift(x_mod = -1) + 
  exit_shrink() + exit_drift(x_mod = 5)

animate(p3+
          enter_fade()+
          exit_fly(y_loc = 1),
        renderer = gifski_renderer())

animate(p3 + ease_aes(x = 'bounce-out') + enter_fly(x_loc = -1) +
          exit_fade(),  width = 600, height = 400, res = 100)

data %>%
  ggplot() +
  geom_col(aes(ranking, gdpPercap, fill = country)) +
  #geom_text(aes(ranking, gdpPercap, label = gdpPercap), hjust=-0.1) +
  geom_text(aes(ranking, y=0 , label = country), hjust=1.1) + 
  geom_text(aes(x=15, y=max(gdpPercap) , label = as.factor(year)), 
            vjust = 0.1, alpha = 0.1,  col = "gray", size = 3) +
  coord_flip(clip = "off", expand = FALSE) + scale_x_reverse() +
  theme_minimal() + 
  theme(panel.grid = element_blank(), 
    legend.position = "none",
    axis.ticks.y = element_blank(),
    axis.title.y = element_blank(),
    axis.text.y = element_blank(),
    plot.margin = margin(1, 4, 1, 3, "cm")) +
  transition_states(year, state_length = 0, transition_length = 2) +
  enter_fade() +
  exit_fade() + 
  ease_aes('quadratic-in-out') 

https://cran.r-project.org/web/packages/gganimate/gganimate.pdf

https://gganimate.com/articles/gganimate.html

https://www.datanovia.com/en/blog/gganimate-how-to-create-plots-with-beautiful-animation-in-r/

https://anderfernandez.com/en/blog/how-to-create-animations-in-r-with-gganimate/

https://www.alexcookson.com/post/2020-10-18-building-an-animation-step-by-step-with-gganimate/

https://slides.mitchelloharawild.com/wombat-gganimate/#21

https://github.com/numbats/gganimate-workshop